COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE LISTR
C00003 ENDMK
C⊗;
TITLE LISTR
	OPDEF CDR[HRRZ]
	OPDEF CAR[HLRZ]
	OPDEF LAC[MOVE]
LISTR↑:	CDR 1,(1)↔JUMPE 1,L2
	CDR 1,(1)↔JUMPE 1,L2
	CDR 2,(1)↔JUMPN 2,.-3
	CAR 1,(1)↔JUMPE 1,L2
	OUTSTR[ASCIZ/	THE GIVEN STRING IS →→→/]
	SETZ 3,
L1:	CAR 2,(1)↔JUMPE 2,L2
	LAC 2,(2)
	OUTSTR 2
	CDR 1,(1)↔JUMPN 1,L1
L2:	SETZ 1,
	OUTSTR[ASCIZ/←←←
/]↔	POPJ 14,
ZERO↑:	LAC 1,[LAC]↔JRST MAKNUM↑+2
END